home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / irc_i_dodatki / kuang / kuangeleven28.lha / Rexx / Pub / kicks.AMIRX < prev    next >
Text File  |  1997-02-06  |  2KB  |  54 lines
  1. /* Kuang 11 Public Channel Plugin - Remote Kicks
  2.    Requires c flag from user
  3.    Supports anti flood delay
  4.    Works only in autochannels.
  5.  
  6.    To install add following commands
  7.    PHILOSOPHY
  8.    PHIL
  9.    SPLATT
  10.    BRAIN
  11.    BUTT
  12.    MOMMA
  13.    SHOOT
  14. */
  15. options results
  16. parse arg nick channel pxf pxt imop autochan text
  17. if getclip('st_remkick')=nick|~imop|~autochan|pos('C',pxf)=0 then exit
  18. "GETMYNICK"
  19. mynick=result
  20. parse var text command target args
  21. upper command
  22. if target='-' then target=''
  23. setclip('st_remkick',nick)
  24. Select
  25. when command='PHILOSOPHY'|command='PHIL' then if nick~=mynick&target~=''&pos('P',pxt)=0 then amrx('philosophy' target channel)
  26. when command='SPLATT' then if nick~=mynick&target~=''&pos('P',pxt)=0 then amrx('splatt' target channel)
  27. when command='INSULT'|command='RIN' then if nick~=mynick&target~=''&pos('P',pxt)=0 then amrx('rin' target channel)
  28. when command='BRAIN' then if nick~=mynick&target~=''&pos('P',pxt)=0 then amrx('PinkyBrain' target channel)
  29. when command='BUTT' then if nick~=mynick&target~=''&pos('P',pxt)=0 then amrx('butt' target channel)
  30. when command='MOMMA' then if nick~=mynick&target~=''&pos('P',pxt)=0 then amrx('momma' target channel)
  31. when command='SHOOT' then if target~=='' then do
  32.     if pos('P',pxt)~=0 then k=0;else k=1
  33.     if upper(nick)=upper(target) then tg='himself';else tg=target
  34.     'say' nick 'picks up the revolver .....'
  35.     'say' nick 'spins the chamber ... Round and round it goes .....'
  36.     'say' nick 'points the gun at' tg 'and pulls the trigger ....'
  37.     Select
  38.         when upper(target)=upper(mynick) then kick(channel,nick,inv('KABOOM') 'The gun explodes in his hands')
  39.         when upper(nick)=upper(target) then kick(channel,nick,inv('KABOOM') 'Goodbye cruel world...')
  40.         when k then "echo" kick(channel,target,inv('BANG') 'got him right between the eyes')
  41.     otherwise
  42.         'say Click Cliq, lucky son of a bitch!!'
  43.     end
  44. end
  45. otherwise
  46. end
  47. delay(500)
  48. setclip('st_remkick')
  49. exit
  50. amrx:;'SAY /RX' arg(1);return 0
  51. kick:;'RAW KICK' arg(1) arg(2) ':'bld(arg(3));return 0
  52. inv:PROCEDURE;i=x2c('16');return i||arg(1)||i
  53. bld:;bld = x2c('02');return bld||arg(1)||bld
  54.